1 REMark Boot program for Q-Help v1.00
2 REMark
3 :
5 v$=VER$
10 dev$='win1_BASIC_'
100 WINDOW 448,200,32,16:PAPER 0:INK 7:CLS
110 CSIZE 1,1:AT 0,20:PRINT 'Q-HELP'
120 CSIZE 0,0
130 IF v$<>'HBA'
140   TK2_EXT
190   LRESPR dev$&'PTR_GEN'
200   LRESPR dev$&'WMAN'
210   LRESPR dev$&'HOT_REXT'
220   HOT_GO
230 END IF
240 LRESPR dev$&'QLIB_run'
290 REMark Remove the word REMark from the next line if you want to install the serial mouse from the default drive (see line 5)
340 REMark LRESPR dev$&'SERMouse'
342 REPeat MAIN
345   CLS #0
350   PRINT #0,'Load <H> Q-Help or <Q> Quit?'
355   REPeat loop:key$=INKEY$(-1):IF key$ INSTR 'HhQq':EXIT loop
360   IF key$=='h':EX dev$&'QHelp_obj'
375   IF key$=='q':STOP
380 END REPeat MAIN
